<%
	strSQL = "select top 5 * from GameClub where Types='超级管理员' order by Hot desc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray1(5)
Dim PicArray1(5)

for i = 0 to ubound(TextArray1) 
	if not rs.eof then
		PicArray1(i)="<A href=""clubvip/"&rs("URL")&".htm""><img src="""&rs("Pic")&""" border=""0"" width=""50"" height=""50"" alt="""" /></A>"
		TextArray1(i)="<A href=""clubvip/"&rs("URL")&".htm"">"&rs("Title")&"</A><br />地址："&rs("Addr")&"<br />电话："&rs("Tel")
		rs.movenext
	else
		TextArray1(i)="&nbsp;"
		PicArray1(i)="&nbsp;"
	end if
next
set rs = nothing
%>
		<hr style="border:1px dashed black; height:1px;">
		<div class="GamePdCommodityDiv1">
			<div class="GamePdPicDiv"><%=PicArray1(0)%></div>
			<div class="GamePdTextDiv" align="left"><%=TextArray1(0)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<div class="GamePdCommodityDiv1">
			<div class="GamePdPicDiv"><%=PicArray1(1)%></div>
			<div class="GamePdTextDiv" align="left"><%=TextArray1(1)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<div class="GamePdCommodityDiv1">
			<div class="GamePdPicDiv"><%=PicArray1(2)%></div>
			<div class="GamePdTextDiv" align="left"><%=TextArray1(2)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">
		<div class="GamePdCommodityDiv1">
			<div class="GamePdPicDiv"><%=PicArray1(3)%></div>
			<div class="GamePdTextDiv" align="left"><%=TextArray1(3)%></div>
		</div>
		<hr style="border:1px dashed black; height:1px;">